
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub btnIngresar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnIngresar.Click
        Dim NegocioP As New dllNegocio.NegPersonas(System.Configuration.ConfigurationManager.AppSettings.Get("SPECBDD").ToString.Trim)
        Try
            Dim ResultadoValidacion As String = NegocioP.ValidarUsuario(Me.txtNombreUsuario.Text.Trim, Me.txtClave.Text.Trim).Trim.ToUpper
            If ResultadoValidacion = "SI" Or ResultadoValidacion = "NO" Then
                Session("EsADM") = ResultadoValidacion
                Session("RutUsuario") = Me.txtNombreUsuario.Text.Trim
                Session("LogueadoSPEC") = "SI"
                Response.Redirect("Paginas/Inicio.aspx")
                Response.End()
            Else
                UtilidadesPagina.mensaje("Error en Usuario o Password", Me.Page)
            End If
        Catch ex As Exception
        Finally
            NegocioP.Dispose()
            NegocioP = Nothing
        End Try
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            Dim negNot As dllNegocio.NegNoticias = New dllNegocio.NegNoticias(System.Configuration.ConfigurationManager.AppSettings.Get("SPECBDD").ToString.Trim)
            Dim colNot As Collection = negNot.ListarNoticias("SI", "")
            Dim objNoticia As New dllEntidades.clsNoticias
            Dim notParam As String = Request.QueryString("noticiaID")
            notParam = IIf(notParam = "", "0", notParam)
            Dim Encontro1 As Boolean = False, Encontro2 As Boolean = False
            Try
                If colNot.Count > 0 Then
                    objNoticia = CType(colNot(1), dllEntidades.clsNoticias)
                    If objNoticia.NotID = notParam Or notParam = "0" Then
                        Encontro1 = True
                        Me.lblPriTitulo.Text = objNoticia.Titulo
                        Me.lblPriBajada.Text = objNoticia.Bajada
                        Me.lblPriCuerpo.Text = objNoticia.Cuerpo
                        Me.lblLit.Text = "<img src='Paginas/img/ImgLoad/Noticias/" & objNoticia.Imagen.ToString.Trim & "' alt='' height='330' width='380' />"
                    Else
                        Encontro2 = True
                        Me.hdn2.Value = objNoticia.NotID
                        Me.litNoticia2.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                    End If
                    If colNot.Count > 1 Then
                        objNoticia = CType(colNot(2), dllEntidades.clsNoticias)
                        If objNoticia.NotID = notParam Then
                            Me.lblPriTitulo.Text = objNoticia.Titulo
                            Me.lblPriBajada.Text = objNoticia.Bajada
                            Me.lblPriCuerpo.Text = objNoticia.Cuerpo
                            Me.lblLit.Text = "<img src='Paginas/img/ImgLoad/Noticias/" & objNoticia.Imagen.ToString.Trim & "' alt='' height='330' width='380' />"
                        Else
                            If Encontro2 = False Then
                                Me.hdn2.Value = objNoticia.NotID
                                Me.litNoticia2.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                                Encontro2 = True
                            Else
                                Me.hdn3.Value = objNoticia.NotID
                                Me.litNoticia3.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                            End If
                        End If
                    End If
                    If colNot.Count > 2 Then
                        objNoticia = CType(colNot(3), dllEntidades.clsNoticias)
                        If objNoticia.NotID = notParam Then
                            Me.lblPriTitulo.Text = objNoticia.Titulo
                            Me.lblPriBajada.Text = objNoticia.Bajada
                            Me.lblPriCuerpo.Text = objNoticia.Cuerpo
                            Me.lblLit.Text = "<img src='Paginas/img/ImgLoad/Noticias/" & objNoticia.Imagen.ToString.Trim & "' alt='' height='330' width='380' />"
                        Else
                            If Encontro2 = False Then
                                Me.hdn2.Value = objNoticia.NotID
                                Me.litNoticia2.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                            Else
                                Me.hdn3.Value = objNoticia.NotID
                                Me.litNoticia3.Text = objNoticia.Titulo & "<br />" & objNoticia.Bajada
                            End If
                        End If
                    End If
                End If
            Finally
                objNoticia.Dispose()
                objNoticia = Nothing
                negNot.Dispose()
                negNot = Nothing
                colNot = Nothing
            End Try
        End If
    End Sub
End Class